home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / ALTERNATE TEXT FONTS.bas < prev    next >
BASIC Source File  |  2000-01-01  |  305b  |  14 lines
  1. 5  & 
  2. 10  REM ALTERNATING CHARACTER SETS DEMO PROGRAM
  3. 15  REM SET UP CTRL T
  4. 20 T$ =  CHR$(20)
  5. 25 ADDR =  PEEK(974) + PEEK(975) *256 +2048
  6. 30 NCS =  PEEK(ADDR -10): HOME 
  7. 35  FOR I = 1 TO NCS
  8. 40  PRINT T$I;
  9. 45  FOR J = 32 TO 127
  10. 50  PRINT  CHR$(J);
  11. 55  NEXT J
  12. 60  PRINT : PRINT 
  13. 65  NEXT I
  14. 70  PRINT T$"1";